Option Explicit
Sub Q_Sample051()
    Dim myStr As String
    Dim myPtn As String
    myPtn = "www\.[\w\.]+tw"                                            'w˦
    'wjMH
    myStr = "DrMaster Publishing}http://www.drmaster.com.twC"
    Debug.Print RegExpExists(myPtn, myStr)
End Sub

Function RegExpExists(myPtn As String, myStr As String)
    ']wޥζMicrosoft VBScript Regular Expressions 5.5
    Dim myRegExp   As VBScript_RegExp_55.RegExp
    Dim myMatchClc As VBScript_RegExp_55.MatchCollection
    Dim myMatch    As VBScript_RegExp_55.Match
    Set myRegExp = New VBScript_RegExp_55.RegExp
    With myRegExp
        .Pattern = myPtn                                 'w˦
        .IgnoreCase = False                            'Ϥjpgr
        .Global = True                                 'jMӦr
        RegExpExists = .Test(myStr)
    End With
    Set myMatchClc = Nothing                                '
    Set myMatch = Nothing
    Set myRegExp = Nothing
End Function

